module Main
 (main)
where

import CompresorDeArchivos
import System

main = do 
  argumentos <- getArgs
  print argumentos
  lee <- leerDeArchivo (head argumentos)
  fun lee argumentos
 -- print w

  
--fun :: [[Char]] -> IO ()
fun lee x
  | (length x == 3) && (last x == "codificar") = imprimirArchivo (head (drop 1 x)) (transformar True lee)
  | (length x == 3) && (last x == "decodificar") = imprimirArchivo (head (drop 1 x)) (transformar False lee)
  | otherwise = error "Main: verificar argumentos de entrada"

